Hi GY,
This may or may not be helpful to you but...
here is a VB6 function that Tom helped me with. It opens a gcode file in KMotionCNC.
Shannon
Public Sub kmotioncnc_load_file(file As String)
Dim hwnd As Long
Dim lhWndP As Long
Dim fn As String
Dim cds As COPYDATASTRUCT
Dim buf(1 To 255) As Byte
Dim i As Long
If GetHandleFromPartialCaption(lhWndP, "KMotionCNC") = True Then 'make sure kmotioncnc is running
fn = StrConv(file, vbUnicode) 'the full path and file name
CopyMemory buf(1), ByVal fn, Len(fn)
cds.cbData = Len(file) * 2 + 1
cds.lpData = VarPtr(buf(1))
SendMessage lhWndP, WM_COPYDATA, Me.hwnd, cds
SendMessage lhWndP, WM_COMMAND, 33018, 0
Else
MsgBox "KMotionCNC does not appear to be running. Run it and try again.", vbCritical, "Yo Loser"
End If
Draw_G_Code file
Exit Sub
errchk:
'Stop
End Sub
